home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / SourceCode / GameKit / Examples / PacMan / Text.psw < prev   
Text File  |  1995-06-12  |  791b  |  26 lines
  1. defineps drawReady( float xlate; float ylate; float ptsize )
  2.  
  3. /Times-BoldItalic findfont ptsize scalefont setfont
  4. 0.0 setgray
  5. xlate 1 sub ylate 1 add moveto (Get Ready!) show
  6. xlate 1 sub ylate 1 sub moveto (Get Ready!) show
  7. xlate 1 add ylate 1 add moveto (Get Ready!) show
  8. xlate 1 add ylate 1 sub moveto (Get Ready!) show
  9. 1.0 setgray
  10. xlate ylate moveto (Get Ready!) show
  11.  
  12. endps
  13.  
  14.  
  15. defineps drawScore( float xlate; float ylate; float ptsize; int score )
  16.  
  17. /Helvetica findfont ptsize scalefont setfont
  18. 0.0 setgray
  19. xlate 1 sub ylate 1 sub moveto score (000000) cvs show
  20. xlate 1 add ylate 1 sub moveto score (000000) cvs show
  21. xlate 1 sub ylate 1 add moveto score (000000) cvs show
  22. xlate 1 add ylate 1 add moveto score (000000) cvs show
  23. 1.0 setgray
  24. xlate ylate moveto score (000000) cvs show
  25.  
  26. endps